home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 27.zip / BS1 part 27 / Superbase4_d2.adf / Trading / STKFO.SBP < prev    next >
Text File  |  1992-08-05  |  3KB  |  175 lines
  1. SBP
  2.  ÿ½     STKFO
  3.  ÿ½     Maintain Countries/Currencies
  4.  ÿ½     Last updated Feb 04, 91
  5.  
  6.  ÿ½ ON ERROR GOTO ferror
  7.  
  8. stkfo:ÿ½ Assign function parameters
  9.  cou%ÿ3:cur%ÿ4
  10.  ÿÉÿæmb%
  11.  ÿæcou%
  12. f$ÿ"country":fkey$ÿ"Name.COUNTRY":fmd$ÿ"stko":fmp$ÿ"stko2"
  13. ffld%ÿ4
  14.  ÿæcur%
  15. f$ÿ"currency":fkey$ÿ"Currency.CURRENCY":fmd$ÿ"stku":fmp$ÿ"stku2"
  16. ffld%ÿ6
  17.  ÿ’ÿÉ
  18.  frow%ÿ10:fst%ÿ0:ÿ´ÿœfmd$
  19.  
  20. floop:ÿ½ Display from first record
  21.  ÿvslimits
  22.  ckey$ÿfstk$
  23.  ÿwfform
  24.  
  25. fpage:ÿ½ Re-display page
  26.  ÿvslimits
  27.  ckey$ÿpstk$(1)
  28.  
  29. fform:ÿ½ Display from ckey$
  30.  ÿvspage 
  31.  ÿ¡fst%ÿpÿœ
  32.  fst%ÿ1
  33.  
  34. fwait:ÿ½ Wait here for a push button
  35.  mp%ÿ0
  36.  ÿÊÿËss13$
  37.  ÿÏÿß
  38.  ÿ½ blank line
  39. ÿ½ Edit line
  40.  ÿ¡(mp%ÿ0ÿmp%ÿlrec%)ÿpÿwfwait
  41.  ÿÊÿËss4$
  42.  ÿÉÿœÿ"mp%
  43.  fnd%ÿ0
  44.  ckey$ÿfkey$$
  45.  ÿßÿ³
  46.  ÿ¡mb%ÿcur%ÿpÿ”Currency ÿ"mp%
  47.  ÿ¡mb%ÿcou%ÿpÿ”Name ÿ"mp%,ffld%
  48.  ÿ¡(mb%ÿcou%ÿ Name.COUNTRYÿckey$)ÿ(mb%ÿcur%ÿ Currency.CURRENCYÿckey$)ÿp
  49. skey$ÿfkey$$
  50. ÿvsinteg
  51. ÿ¡fnd%ÿ0ÿpÿÉÿœÿ"mp%:fkey$$ÿskey$
  52.  ÿ’ÿ¡
  53.  ÿ¡fnd%ÿ0ÿp
  54. ÿ¡mb%ÿcur%ÿp
  55. ÿÊÿËss4$
  56. ÿ”Description ÿ"mp%,ffld%ÿ1
  57. ÿ’ÿ¡
  58. ÿÂms1$,"",127,b%
  59. ÿ¡b%ÿ1ÿpÿÌ
  60.  ÿ’ÿ¡
  61.  ÿwfpage
  62.  
  63. fenter: ÿ½ Enter new records
  64.  ÿÿœ
  65.  ÿÎ
  66.  ÿÊÿËss3$
  67.  ÿßÿ³
  68.  mp%ÿ1
  69.  
  70. fenter2: 
  71.  ÿ”(mp%ÿ1)ÿffld%ÿ1,ffld%
  72.  ÿÂms1$,"",127,a%
  73.  ÿ¡a%ÿ1ÿpÿÌ:mp%ÿmp%ÿ1
  74.  ÿÂms2$,"",130,a%
  75.  ÿ¡a%ÿ0ÿpÿwfloop
  76.  ÿ¡mp%ÿ    frow%ÿpÿwfenter2 ÿ^ÿwfenter
  77.  
  78. fdelete: ÿ½ Delete record
  79.  ÿÊÿËss12$
  80.  ÿÏÿß
  81.  ÿÉÿœÿ"mp%
  82.  ckey$ÿfkey$$
  83.  fnd%ÿ0
  84.  ÿvsinteg
  85.  ÿ¡fnd%ÿ0ÿp
  86. ÿÂms14$ÿckey$,"",119,a%
  87. ÿ¡a%ÿp
  88. ÿÉÿœÿ"mp%
  89. ÿÉÿ¥ckey$
  90. ÿÉÿ¾
  91. ÿ’ÿ¡
  92.  ÿ’ÿ¡
  93.  ÿwfpage
  94.  
  95. fnext:ÿ½ Next page
  96.  ÿ¡lstk$ÿpstk$(lrec%)ÿpÿwfwait
  97.  ÿÉÿ¥pstk$(lrec%)
  98.  ÿÉÿ±
  99.  ÿwfcurr
  100.  
  101. fprev:ÿ½ Prev page
  102.  ÿ¡fstk$ÿpstk$(1)ÿpÿwfwait
  103.  ÿÉÿ¥pstk$(1)
  104.  ÿ›i%ÿ1ÿqfrow%
  105. ÿÉÿg
  106.  ÿ±i%
  107.  
  108. fcurr:ÿ½ Assign ckey
  109.  ckey$ÿfkey$$
  110.  ÿwfform
  111.  
  112. fexit:ÿ½ Exit
  113.  ÿ„"menu"
  114.  
  115. fprint: ÿ½ Print
  116.  ÿ´ÿœfmp$
  117.  ÿ¹ÿY
  118.  ÿ´ÿœfmd$
  119.  ÿwfform
  120.  
  121. slimits: ÿ½ fkey$$ gets the contents of the field named by fkey$ 
  122.  ÿÉÿb
  123.  lstk$ÿfkey$$
  124.  ÿÉÿ`
  125.  fstk$ÿfkey$$
  126.  ÿÃ
  127.  
  128. spage:ÿ½ Displays page of records starting with ckey$
  130. ÿ½ Returns key array and number of records for page
  131.  ÿÿœ
  132.  ÿÉÿ¥ckey$
  133.  j%ÿ0
  134.  ÿ›i%ÿ1ÿqfrow%
  135. ÿÍÿœÿ"i%
  136. j%ÿj%ÿ1
  137. pstk$(i%)ÿfkey$$
  138. ÿ¡fkey$$ÿlstk$ÿpi%ÿfrow%
  139. ÿ¡i%ÿ
  140. frow%ÿpÿÉÿ±
  141.  ÿ±i%
  142.  ÿ¡j%ÿfrow%ÿplrec%ÿfrow%ÿ^lrec%ÿj%
  143.  ÿÃ
  144.  
  145. sinteg:ÿ½ check not in use by clients or stocks
  146.  ÿÊÿËss16$
  147.  ÿ¡mb%ÿcou%ÿp
  148. ÿ™"clients"
  149. ÿ£f$
  150. ÿÉÿ¥ckey$
  151. ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by clients file",100,a%:fnd%ÿ1
  152.  ÿ’ÿ¡
  153.  ÿ™"stocks"
  154.  ÿ£f$
  155.  ÿÉÿ¥ckey$
  156.  ÿ¡ÿC("")ÿpÿÂms25$,ckey$ÿ" referenced by stocks file",100,a%:fnd%ÿ1
  157.  ÿ™f$
  158.  ÿÃ
  159.  
  160. ferror:ÿ½ Error conditions
  161.  res%ÿ0
  162.  ÿ¡ÿ&ÿ11ÿp
  163. ÿÂms21$,ms22$,130,a%:ÿ¡a%ÿ1ÿpres%ÿ1
  164.  ÿ^ÿ¡ÿ&ÿ57ÿp
  165. ÿÂms8$,"",2,a%:res%ÿ2
  166.  ÿ^
  167. ÿÂÿ((ÿ&),ms9$,114,a%:ÿ¡a%ÿ1ÿpres%ÿ3
  168.  ÿ’ÿ¡
  169.  ÿ¡res%ÿ1ÿpÿy
  170.  ÿ¡res%ÿ2ÿpÿyfloop
  171.  ÿ¡res%ÿ3ÿpÿyfwait
  172.  ÿ
  173.  
  174.  
  175.